home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 04 geoProgramming / GECOM1.SFX / systeminfocom (.txt) < prev   
Encoding:
GEOS ConVerT  |  1990-02-12  |  8.2 KB  |  183 lines
  1. SYSTEM INFO_com
  2. PRG formatted GEOS file V1.0
  3. StarNX-1000C
  4. OP V3.0 or higherNFO
  5. SYSTEM INFO_COM
  6. BLASTER'S CONVERTER V2.5
  7. SID-DEMO 5_com
  8. 0"READ-ME FIRST
  9. Write Image V2.1
  10. geoWrite    V2.2
  11. ` Quelltext zur geoCOM-Demodiskette `
  12. ` (c)94 BY DENIS D\HLER/FALK REHWAGEN`
  13. ` Die Demodiskette kann kostenlos angefordert `
  14. ` werden bei: `
  15. ` GUSS, Denis D|hler , Gorkistr.18 , 04347 Leipzig `
  16. NAME "SYSTEM INFO"
  17. AUTHOR "Denis D|hler"
  18. CLASS "System Info V1.0"
  19. STARTFLAG$40
  20. BYTEVARzz,e,muster,fertig,x1,x2,lw,e1,m,byte,i
  21. INTVARy1,y2,reu
  22. STRVAR 5; string,typ
  23. STRVAR 10;wochentag,tag,vers,nat
  24. STRVAR 2;modus
  25. ROW 4 STRVAR16;disk
  26. ROW 12 BYTEVARdat : ROW 4 BYTEVARgd,hd
  27. ROW 4 STRVAR13;drive
  28. ROW 4 INTVARadresse
  29. STRVAR16;floppyname : STRVAR13;was
  30. ROW 67 BYTEVARicon
  31. LABEL berechnen1,berechnen2
  32. LABEL schleife,taste,info,start
  33. @start
  34. floppyname=(DISKNAME) : lw=curdrive
  35. (icon<1>)=21 : (icon<2>)=0 : (icon<3>)=$bf
  36. CLS : PATTERN0
  37. `Aufbauen`
  38. RECT(DBL2,0),17,(DBL180,1),117 : FRAME(DBL2,0),17,(DBL180,1),117
  39. RECT(DBL184,0),2,(DBL316,1),14 : FRAME(DBL184,0),2,(DBL316,1),14
  40. `Text schreiben`
  41. SETPOS(DBL200,0),10 : PRINT"/BInfo-System/P"
  42. SETPOS(DBL20,0),50 : PRINT"Bitte einen Moment warten !"
  43. ` Logo `
  44. PATTERN1 : RECT(DBL53,0),148,(DBL282,1),192
  45. PATTERN0 : RECT(DBL45,0),140,(DBL274,1),184
  46. FRAME(DBL45,0),140,(DBL274,1),184
  47. IF(scrflag==$80)THEN
  48.   SETPOS230,155 : PRINT"/O/BSystem- und File-Info's/P"
  49.   SETPOS278,165 : PRINT"(w)'93 by Denis D|hler"
  50.   SETPOS222,175 : PRINT"Quelltext kann frei verwendet werden !"
  51.   (icon<0>)=(3OR128)
  52.   SETPOS74,155 : PRINT"/O/BSystem- und File-Info's/P"
  53.   SETPOS112,165 : PRINT"(w)'93 by Denis D|hler"
  54.   SETPOS74,175 : PRINT"Quelltext kann frei verwendet werden !"
  55.   (icon<0>)=3 
  56. ENDIF
  57. WAIT50
  58. `Pattern berechnen`
  59. x1=17 : x2=34 : y1=184 : y2=205 : fertig=0 : muster=0 : berechnen2
  60. x1=34 : x2=51 : y1=184 : y2=205 : berechnen2 : x1=51 : x2=68 : y1=184 : y2=205 : berechnen2
  61. x1=68 : x2=85 : y1=184 : y2=205 : berechnen2 : x1=85 : x2=101 : y1=184 : y2=205 : berechnen2
  62. x1=101 : x2=117 : y1=184 : y2=205 : berechnen2
  63. berechnen1 
  64. `gefundene Daten zeigen`
  65. PATTERN0
  66. RECT(DBL6,0),40,(DBL178,1),80 
  67. RECT(DBL2,0),120,(DBL317,1),196 : 
  68. RECT(DBL2,0),120,(DBL317,1),196 : FRAME(DBL2,0),120,(DBL317,1),196
  69. SETPOS(DBL10,0),30 : PRINT"/PHeute ist :"
  70. SETPOS(DBL70,0),30 : PRINTwochentag; : PRINT", der "; : PRINTtag
  71. SETPOS(DBL10,0),40 : PRINT"Aktuelle LW-Nr: /B"
  72. SETPOS(DBL105,0),40 : PRINT(STRlw)
  73. SETPOS(DBL10,0),50 : PRINT"/PRAM-Gr|~e: /B"
  74. SETPOS(DBL105,0),50 : PRINT(STRreu); : PRINT" KByte/P"
  75. SETPOS(DBL10,0),60 : PRINT"/PZeichen-Modus: /B"
  76. SETPOS(DBL105,0),60 : PRINTmodus; : PRINT"-Zeichen"
  77. SETPOS(DBL10,0),70 : PRINT"/PComputer: /B"
  78. SETPOS(DBL105,0),70 : PRINTtyp
  79. SETPOS(DBL10,0),80 : PRINT"/PGeos Version: /B"
  80. SETPOS(DBL105,0),80 : PRINTvers
  81. SETPOS(DBL105,0),90 : PRINTnat
  82. SETPOS(DBL10,0),100 : PRINT"/PSeriennummerr: /B"
  83. SETPOS(DBL105,0),100 : PRINT(STR(sysreg<0>))
  84. SETPOS(DBL105,0),110 :  PRINT"$"; : PRINT(HEXSTR(sysreg<0>))
  85. FRAME(DBL260,0),133,(DBL266,0),139 : FRAME(DBL280,0),133,(DBL286,0),139
  86. FRAME(DBL260,0),144,(DBL266,0),150 : FRAME(DBL280,0),144,(DBL286,0),150
  87. FRAME(DBL260,0),154,(DBL266,0),160 : FRAME(DBL280,0),154,(DBL286,0),160
  88. FRAME(DBL260,0),165,(DBL266,0),171 : FRAME(DBL280,0),165,(DBL286,0),171
  89. SETPOS(DBL255,0),129 : PRINT"/PSys Hau "
  90. SETPOS(DBL8,0),140 : PRINT"/BLw. A: /P"; : PRINT(drive<0>)
  91. SETPOS(DBL135,0),140 : PRINT"/BDisk : /P"; : PRINT(disk<0>)
  92. IF(gd<0>) : INVERT(DBL261,0),134,(DBL265,0),138 : ENDIF
  93. IF(hd<0>) : INVERT(DBL281,0),134,(DBL285,0),138 : ENDIF
  94.   SETPOS(DBL8,0),150 : PRINT"/BLw. B: /P"; : PRINT(drive<1>)
  95.   SETPOS(DBL135,0),150 : PRINT"/BDisk : /P"; : PRINT(disk<1>)
  96. IF(gd<1>) : INVERT(DBL261,0),145,(DBL265,0),149 : ENDIF
  97. IF(hd<1>) : INVERT(DBL281,0),145,(DBL285,0),149 : ENDIF
  98.    SETPOS(DBL8,0),160 : PRINT"/BLw. C: /P"; : PRINT(drive<2>)
  99.    SETPOS(DBL135,0),160 : PRINT"/BDisk : /P"; : PRINT(disk<2>)
  100. IF(gd<2>) : INVERT(DBL261,0),155,(DBL265,0),159 : ENDIF
  101. IF(hd<2>) : INVERT(DBL281,0),155,(DBL285,0),159 : ENDIF
  102.  SETPOS(DBL8,0),170 : PRINT"/BLw. D: /P"; : PRINT(drive<3>)
  103.  SETPOS(DBL135,0),170 : PRINT"/BDisk : /P"; : PRINT(disk<3>)
  104. IF(gd<3>) : INVERT(DBL261,0),166,(DBL265,0),170 : ENDIF
  105. IF(hd<3>) : INVERT(DBL281,0),166,(DBL285,0),170 : ENDIF
  106. SETPOS(DBL8,0),180 : PRINT"/BDrucker: /P"; : PRINT(STR16AT$8465)
  107. SETPOS(DBL8,0),190 : PRINT"/BEingabe: /P" ; : PRINT(STR16AT$88cb)
  108.   SETPOS(DBL165,0),190 : PRINT"/BMaus: " 
  109.   MOVE$84c1,(ADR(icon<4>)),$bf
  110.   BITMAP(DBL25),174,(OBJECTAT(ADR(icon<0>)))
  111. PRINT"/P" : GOTO schleife
  112. @berechnen1
  113. `Wochentag berechnen`
  114. (dat<0>)=5 : (dat<1>)=1 : (dat<2>)=1 : (dat<3>)=4 : (dat<4>)=6 : (dat<5>)=2 
  115. (dat<6>)=4 : (dat<7>)=0 : (dat<8>)=3 : (dat<9>)=5 : (dat<10>)=1 : (dat<11>)=3
  116. tag=((STR(date<2>))+".") : tag=(tag+(STR(date<1>))) : tag=((tag+".")+(STR(date<0>)))
  117. zz=(((dat<((date<1>)-1)>)+(date<2>))+((date<0>)-93)) : IF (zz>37) : zz=(zz-6) : ENDIF
  118. REPEAT : IF(zz>7) : zz=(zz-7) : ENDIF : UNTIL (zz < 8) : DECzz
  119. IF(zz==0) : wochentag="Sonntag" : ENDIF : IF(zz==1) : wochentag="Montag" : ENDIF
  120. IF(zz==2) : wochentag="Dienstag" : ENDIF : IF(zz==3) : wochentag="Mittwoch" : ENDIF
  121. IF(zz==4) : wochentag="Donnerstag" : ENDIF : IF(zz==5) : wochentag="Freitag" : ENDIF
  122. IF(zz==6) : wochentag="Samstag" : ENDIF
  123. `RAM-Gr|~e ausrechnen`
  124. reu=((INT(PEEK$88c3))*64)
  125. `Versionstyp auslesen`
  126. IF(version==$12) : vers="V. 1.2" : ENDIF
  127. IF(version==$13) : vers="V. 1.3" : ENDIF
  128. IF(version==$15) : vers="V. 1.5" : ENDIF
  129. IF(version==$20) : vers="V. 2.0" : ENDIF
  130. `Seriennummer auslesen`
  131. CALLSYS$c196,sysreg
  132. `Kernal-Nationalit{t`
  133. IF(nation==$00) : nat="USA" : ENDIF : IF(nation==$01) : nat="Germany" : ENDIF
  134. `Bildschirmmodus und Computertyp`
  135. IF(scrflag==128) : modus="80" : ELSE : modus="40" : ENDI
  136. `Kernal-Nationalit{t`
  137. IF(nation==$00) : nat="USA" : ENDIF : IF(nation==$01) : nat="Germany" : ENDIF
  138. `Bildschirmmodus und Computertyp`
  139. IF(scrflag==128) : modus="80" : ELSE : modus="40" : ENDIF
  140. IF((PEEK$c013)==128) : typ="C 128" : ELSE : typ="C 64" : ENDIF
  141. `Laufwerke und Diskettennamen auslesen`
  142. `Adressen der Diskettennamen`
  143. (adresse<0>)=$841e : (adresse<1>)=$8430 : (adresse<2>)=$88dc : (adresse<3>)=$88ee
  144. e1=0 : REPEAT : (drive<e1>)="Kein Laufwerk !" : INCe1 : UNTIL(e1==4)
  145. DEVICE8 : e=8 : e1=0 
  146.  REPEAT
  147.  OPENDISK
  148.  IF(iostat<>0) : (disk<e1>)="Keine Disk !" : ELSE
  149.  (disk<e1>)=(STR16AT(adresse<e1>)) : i=(PEEK$82bd)
  150.  IF (i ==$42) : (gd<e1>) = 1 : ELSE : (gd<e1>)=0 : ENDIF
  151.  IF (i ==$50) : (hd<e1>) = 1 : ELSE : (hd<e1>)=0 : ENDIF
  152.  ENDIF
  153.  IF((drtype<e>)==1) : (drive<e1>)="Typ 1541" : ENDIF
  154.  IF((drtype<e>)==2) : (drive<e1>)="Typ 1571" : ENDIF
  155.  IF((drtype<e>)==3) : (drive<e1>)="Typ 1581" : ENDIF
  156.  IF((drtype<e>)==65) : (drive<e1>)="schatt. 1541" : ENDIF
  157.  IF((drtype<e>)==66) : (drive<e1>)="schatt. 1571" : ENDIF
  158.  IF((drtype<e>)==67) : (drive<e1>)="schatt. 1581" : ENDIF
  159.  IF((drtype<e>)==129) : (drive<e1>)="RAM 1541" : ENDIF
  160.  IF((drtype<e>)==130) : (drive<e1>)="RAM 1571" : ENDIF
  161.  IF((drtype<e>)==131) : (drive<e1>)="RAM 1581" : ENDIF
  162.  INCe : INCe1 : DRIVE : IF(iostat<>0) : DEVICElw : RETURN : ENDIF
  163. UNTIL(e==12) : DEVICElw : RETURN
  164. @berechnen2
  165.  REPEAT : PATTERN muster : RECT(DBLy1,0),x1,(DBLy2,1),x2 : FRAME(DBLy1,0),x1,(DBLy2,1),x2
  166.   y1=(y1+22) : y2=(y2+22) : INCmuster : INCfertig
  167.  UNTIL(fertig == 6) : fertig=0
  168. RETURN
  169. @schleife
  170. ON 0 GOTOtaste : MAINLOOP
  171. GOTOschleife
  172. @taste
  173.  IF (keydata==$f1) : END : ENDIF
  174.  IF (keydata==233) : info : ENDIF
  175. GOTO schleife
  176. @info
  177.  STRNBOX"/BSystem- und File-info's/P","(w)'93 by Denis D|hler","Quelltext frei verwendbar !"
  178. RETURN
  179. ) : INVERT(DBL281,0),155,(DBL285,0),159 : ENDIF
  180.  SETPOS(DBL8,0),170 : PRINT"/BLw. D: /P"; : PRINT(drive<3>)
  181.  SETPOS(DBL135,0),170 : PRINT"/BDisk : /P"; : PRINT(disk<3>)
  182. IF(gd<3>) : INVERT(DBL261,0),166,(DBL265,0),170 : ENDI
  183.